home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
F1 Licenseware
/
F1 Licenseware - Volume 1.iso
/
disks
/
049b.dms
/
049b.adf
/
andrew_smith_source
/
Box.AMOS
/
Box.amosSourceCode
Wrap
AMOS Source Code
|
1992-02-26
|
598b
|
34 lines
' Circle Draw
Screen 0
Do
' Anchor first point
Repeat
X1=X Screen(X Mouse)
Y1=Y Screen(Y Mouse)
' If Mouse Screen=3 Then _PALETTE_CHANGE
' CLICKOPTION
Until Mouse Click=1
' XOR write mode
Gr Writing 2
Repeat
X2=X Screen(X Mouse)
Y2=Y Screen(Y Mouse)
Box X1,Y1 To X2,Y2
Wait Vbl
Box X1,Y1 To X2,Y2
Until Mouse Click=1
' Normal write mode
Gr Writing 0
Box X1,Y1 To X2,Y2
Loop